###############################################################################################
# Gender Differences in the Effect of CRSV on Civic Engagement
# 
# Figure 4
# 
###############################################################################################

par(mar=c(3,4,1,1), cex.axis=.8, cex.lab=.8, mfrow=c(1,3), las=1)

plot(c(drc.f, drc.m, drc.diff), 3:1, pch=c(21, 19, 17), cex=1.2, ylim=c(0.5, 3.5), xlim=c(-.5, .75), main="DRC", axes=F, ylab="", xlab="Difference in Probability")
#grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, lty=2, col="darkgrey")
segments(c(drc.ci.f[1], drc.ci.m[1], drc.ci.diff[1]), 3:1,
         c(drc.ci.f[2], drc.ci.m[2], drc.ci.diff[2]), 3:1)
axis(2, 3:1, labels=c("Female", "Male", "Difference"), col="white")
axis(1, col="white")
points(drc.f, 3, pch=19, col="white", cex=.8)
text(c(drc.f, drc.m, drc.diff), 3:1, c(drc.f, drc.m, drc.diff),  pos=3, cex=.8)
box(col="darkgrey")

plot(c(lib.f, lib.m, lib.diff), 3:1, pch=c(21, 19, 17), cex=1.2, ylim=c(0.5, 3.5), xlim=c(-.5, .75), main="Liberia", axes=F, ylab="", xlab="Difference in Probability")
#grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, lty=2, col="darkgrey")
segments(c(lib.ci.f[1], lib.ci.m[1], lib.ci.diff[1]), 3:1,
         c(lib.ci.f[2], lib.ci.m[2], lib.ci.diff[2]), 3:1)
axis(2, 3:1, labels=c("Female", "Male", "Difference"), col="white")
axis(1, col="white")
points(lib.f, 3, pch=19, col="white", cex=.8)
text(c(lib.f, lib.m, lib.diff), 3:1, c(lib.f, lib.m, lib.diff),  pos=3, cex=.8)
box(col="darkgrey")

plot(c(sri.f, sri.m, sri.diff), 3:1, pch=c(21, 19, 17), cex=1.2, ylim=c(0.5, 3.5), xlim=c(-.5, .75), main="Sri Lanka", axes=F, ylab="", xlab="Difference in Probability")
#grid(lty=1, lwd=.5, col="lightgrey")
abline(v=0, lty=2, col="darkgrey")
segments(c(sri.ci.f[1], sri.ci.m[1], sri.ci.diff[1]), 3:1,
         c(sri.ci.f[2], sri.ci.m[2], sri.ci.diff[2]), 3:1)
axis(2, 3:1, labels=c("Female", "Male", "Difference"), col="white")
axis(1, col="white")
points(sri.f, 3, pch=19, col="white", cex=.8)
text(c(sri.f, sri.m, sri.diff), 3:1, c(sri.f, sri.m, sri.diff),  pos=3, cex=.8)
box(col="darkgrey")

################################################################################################
